home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2004 March
/
Chip_2004-03_cd1.bin
/
software
/
purge
/
PURG504.EXE
/
{app}
/
PURGEIE.EXE
/
0
/
RCDATA
/
TPROTECTFORM
/
TPROTECTFORM.txt
Wrap
Text File
|
2004-01-01
|
21KB
|
673 lines
object ProtectForm: TProtectForm
Left = 596
Top = 210
Width = 610
Height = 430
HelpContext = 400
Caption =
'PurgeIE - Protect various Cookies, Cache and Visited URLs to byp' +
'ass Purge'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object Panel4: TPanel
Left = 0
Top = 0
Width = 602
Height = 100
HelpContext = 400
Align = alTop
TabOrder = 0
object CookiesSBtn: TSpeedButton
Left = 12
Top = 6
Width = 76
Height = 25
Hint = 'Display Cookies'
Caption = 'Cookies'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777777777777777777700000000000007770FFFFFFFFFFF07770FFFFFFFFFF
F07770FFFFFFFFFFF07770F888888888F07770FFFFFFFFFFF07770F888888888
F07770FFFFFFFFFFF07770FFF8888888F07770FFFFFFFFFFF07770F00000FFFF
F07770FFFFFFFFFFF07770000000000000777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = CookiesSBtnClick
end
object VisitedSBtn: TSpeedButton
Left = 220
Top = 6
Width = 76
Height = 25
Hint = 'Display Visited URLs'
Caption = 'Visited'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00788888888888
888800000000000000080FFFFFFFFFFFFF080F00000000000F080FFFFFFFFFFF
FF080F00000000000F080FFFFFFFFFFFFF080F00000000000F080FFFFFFFFFFF
FF080F000F000F000F080FF07F70FFFFFF080FF70007FF000F080FFF888FFFFF
FF080FFFF0FFFF000F080FFFFFFFFFFFFF080000000000000007}
ParentShowHint = False
ShowHint = True
OnClick = VisitedSBtnClick
end
object CacheSBtn: TSpeedButton
Left = 116
Top = 6
Width = 76
Height = 25
Hint = 'Display Cache'
Caption = 'Cache'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
77777700000000000077770FFFFFFFFFF077770FFFFFFFFFF077770FF444444F
F077770FFFFFFFFFF077770FF444444FF077770FFFFFFFFFF077770FF444444F
F077770FFFFFFFFFF077770FF4444FFFF077770FFFFFFF000077770FFFFFFF07
0777770FFFFFFF00777777000000000777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = CacheSBtnClick
end
object DeleteSBtn: TSpeedButton
Left = 417
Top = 70
Width = 76
Height = 25
Hint = 'Delete Selected Entry'
Caption = 'Delete'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777770F77770F7777777777777000F777777
0F7777000F777770F777777000F77700F7777777000F700F77777777700000F7
7777777777000F7777777777700000F777777777000F70F77777770000F77700
F77770000F7777700F77700F7777777700F77777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = DeleteSBtnClick
end
object ProtectSBtn: TSpeedButton
Left = 214
Top = 70
Width = 76
Height = 25
Hint = 'Protect Selected Entry'
Caption = 'Protect'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777700077
7777777777706077777777777770607777777777000060000777777706666666
0777777700006000077777777770607777777777777060777777777777700077
7777777777777777777777777777777777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = ProtectSBtnClick
end
object UnProtectSBtn: TSpeedButton
Left = 316
Top = 70
Width = 76
Height = 25
Hint = 'UnProtect Selected Entry'
Caption = 'Unprotect'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777770000000007777777033333330
7777777000000000777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = UnProtectSBtnClick
end
object ExitSBtn: TSpeedButton
Left = 426
Top = 6
Width = 110
Height = 25
Hint = 'Return to Main Window'
Caption = 'Return to Main'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777700000000000777770FFFFFFFFF0777770F8888888F0777770FFFFFFFFF0
777770F888888FF0777770FFFFFFFFF0777770F8888888F0777770FFFFFFFFF0
7777744444444444777774444444444477177777777777777717777777777771
7177777777777771177777777777777111777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = ExitSBtnClick
end
object ViewSBtn: TSpeedButton
Left = 113
Top = 70
Width = 76
Height = 25
Hint =
'View the selected file using the Viewer assigned to the file'#39's e' +
'xtension'
Caption = 'View'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777777777777777777777777777777777777700077770007777707E707707E70
77770E7E0770E7E077770FE70770FE7077770EFE0770EFE07777800070070008
7777707777777770777077077707777707707770770777777070777707077777
7707777770777777777777777777777777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = ViewSBtnClick
end
object Find1Sbtn: TSpeedButton
Left = 518
Top = 70
Width = 76
Height = 25
Hint =
'Find next displayed record containing the specified characters i' +
'n Cookie Contents or Internet Address (for Cache and Visited).'
Caption = 'Find'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777700000777770000070F000777770F00070F000777770F000700000007000
0000700F000000F00000700F000700F00000700F000700F00000770000000000
00077770F00070F000777770000070000077777700077700077777770F07770F
0777777700077700077777777777777777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = Find1SbtnClick
end
object Label1: TLabel
Left = 20
Top = 42
Width = 33
Height = 13
AutoSize = False
Caption = 'Filter:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object NotRegMsg: TLabel
Left = 264
Top = 44
Width = 258
Height = 13
Caption = 'After Trial Period, only basic list functions are available.'
Visible = False
end
object ExitProtSBtn: TSpeedButton
Left = 324
Top = 6
Width = 74
Height = 25
Hint = 'Terminate Execution - do not Return to Main Window'
Caption = 'Exit'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777770007777777777700050777777777000555077777777705555500077
7777705555508077777770555F80F077777770555550F077757770555550F077
557770555550F075555570555550F077557770555500F0777577705500FFF077
77777000FFFFF077777770000000007777777777777777777777}
ParentShowHint = False
ShowHint = True
OnClick = ExitProtSBtnClick
end
object OpenSbtn: TSpeedButton
Left = 12
Top = 70
Width = 76
Height = 25
Hint = 'Open the Website for the selected URL'
Caption = 'Open'
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
0400000000008000000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
777700000000000077000FFFFFFFFFF070000FFFFFFF000080070FFFFFF08778
08770FFFFF0877E880770FFFFF07777870770FFFFF07E77870770FFFFF08EE78
80770FFFFFF0877807770FFFFFFF000077770FFFFFFFFFF077770FFFFFFF0000
77770FFFFFFF070777770FFFFFFF007777770000000007777777}
ParentShowHint = False
ShowHint = True
OnClick = OpenSbtnClick
end
object LimitEdit: TEdit
Left = 60
Top = 40
Width = 160
Height = 21
Hint =
'Enter character string to limit displayed records for next Selec' +
'tion to those containing the specified characters in Cookie Cont' +
'ents or Internet Address (for Cache and Visited).'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnKeyPress = LimitEditKeyPress
end
object Sort1RadGrp: TRadioGroup
Left = 264
Top = 33
Width = 256
Height = 30
Hint = 'Specify the Column to be sorted for the display.'
Caption = 'Sort Column'
Columns = 4
ItemIndex = 0
Items.Strings = (
'Address'
'Status'
'Access'
'Hits')
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = Sort1RadGrpClick
end
end
object ListView1: TListView
Left = 0
Top = 100
Width = 602
Height = 165
Align = alClient
OnClick = ListView1Click
OnDblClick = ListView1DblClick
Columns = <
item
Caption = 'Internet Address'
Width = 300
end
item
Caption = 'Status'
end
item
Caption = 'Accessed'
Width = 116
end
item
Caption = 'Hits'
Width = 35
end
item
Caption = 'Local File'
Width = 400
end
item
Caption = 'Type'
Width = 60
end>
ReadOnly = True
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
GridLines = True
MultiSelect = True
RowSelect = True
OnCompare = ListView1Compare
OnMouseDown = ListView1MouseDown
ParentFont = False
PopupMenu = PopupProt2
SortType = stText
TabOrder = 1
ViewStyle = vsReport
OnKeyUp = ListView1KeyUp
end
object Panel1: TPanel
Left = 0
Top = 265
Width = 602
Height = 138
Align = alBottom
BevelOuter = bvNone
Caption = 'Panel1'
TabOrder = 2
object ListView2: TListView
Left = 0
Top = 0
Width = 602
Height = 74
Hint = 'This area displays Information within the Selected Cookie'
Align = alClient
ColumnClick = False
Columns = <
item
Caption = 'Cookie: Domain'
Width = 130
end
item
Caption = 'Data Name'
Width = 100
end
item
Caption = 'Data Value'
Width = 260
end
item
Caption = 'Secure'
end>
ReadOnly = True
GridLines = True
RowSelect = True
ParentShowHint = False
ShowHint = True
TabOrder = 0
TabStop = False
ViewStyle = vsReport
end
object Panel3: TPanel
Left = 0
Top = 74
Width = 602
Height = 64
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object Panel2: TPanel
Left = 0
Top = 48
Width = 602
Height = 16
Align = alBottom
Caption = 'Panel2'
TabOrder = 0
object ProtfootMsg: TLabel
Left = 1
Top = 1
Width = 600
Height = 14
Align = alClient
Caption = 'ProtfootMsg'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
end
object Panel5: TPanel
Left = 0
Top = 0
Width = 602
Height = 48
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object LabelWS: TLabel
Left = 218
Top = 6
Width = 80
Height = 13
Hint = 'The Domain Name for the selected URL'
AutoSize = False
Caption = 'Domain Name - '
ParentShowHint = False
ShowHint = True
end
object LabelWSt: TLabel
Left = 298
Top = 6
Width = 79
Height = 13
Hint = 'The Domain Name for the selected URL'
Caption = 'microsoft.com'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
ParentShowHint = False
ShowHint = True
end
object PanelCS: TPanel
Left = 4
Top = 4
Width = 190
Height = 18
Hint = 'Click to edit Cookie Setting for Domain Name - requires IE-6'
BevelWidth = 2
ParentShowHint = False
PopupMenu = PopupMenuCS
ShowHint = True
TabOrder = 0
OnMouseDown = PanelCSMouseDown
object LabelCS: TLabel
Left = 4
Top = 2
Width = 78
Height = 13
Caption = 'Cookie Setting - '
ParentShowHint = False
ShowHint = False
OnMouseDown = PanelCSMouseDown
end
object LabelCSt: TLabel
Left = 86
Top = 2
Width = 100
Height = 13
AutoSize = False
Caption = 'requires IE-6'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnMouseDown = PanelCSMouseDown
end
end
object PanelSZ: TPanel
Left = 4
Top = 26
Width = 190
Height = 18
Hint = 'Click to edit Security Zone setting for displayed Domain Mask'
BevelWidth = 2
ParentShowHint = False
PopupMenu = PopupMenuSZ
ShowHint = True
TabOrder = 1
OnMouseDown = PanelSZMouseDown
object LabelSZ: TLabel
Left = 4
Top = 2
Width = 75
Height = 13
Caption = 'Security Zone - '
ParentShowHint = False
ShowHint = False
OnMouseDown = PanelSZMouseDown
end
object LabelSZt: TLabel
Left = 86
Top = 2
Width = 100
Height = 13
AutoSize = False
Caption = 'Restricted'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnMouseDown = PanelSZMouseDown
end
end
object PanelDM: TPanel
Left = 214
Top = 26
Width = 300
Height = 18
Hint = 'Click to Create a new Domain Mask'
BevelWidth = 2
ParentShowHint = False
PopupMenu = PopupMenuDM
ShowHint = True
TabOrder = 2
OnMouseDown = PanelDMMouseDown
object LabelDM: TLabel
Left = 4
Top = 2
Width = 74
Height = 13
Caption = 'Domain Mask - '
ParentShowHint = False
ShowHint = False
OnMouseDown = PanelDMMouseDown
end
object LabelDMt: TLabel
Left = 84
Top = 2
Width = 148
Height = 13
Caption = 'http://www.microsoft.com'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
OnMouseDown = PanelDMMouseDown
end
end
end
end
end
object PopupProt2: TPopupMenu
AutoPopup = False
OnPopup = PopupProt2Popup
Left = 288
object PuOpen: TMenuItem
Caption = 'Open'
Default = True
Hint = 'Open the Webpage for the selected URL..'
OnClick = PuOpenClick
end
object PuView: TMenuItem
Caption = 'View'
Hint =
'View the selected file using the Viewer assigned to the file'#39's e' +
'xtension.'
OnClick = PuViewClick
end
object PuProtect: TMenuItem
Caption = 'Protect'
Hint = 'Protect Selected Entry'
OnClick = PuProtectClick
end
object PuUnprotect: TMenuItem
Caption = 'Unprotect'
Hint = 'UnProtect Selected Entry'
OnClick = PuUnprotectClick
end
object PuDelete: TMenuItem
Caption = 'Delete'
Hint = 'Delete Selected Entry'
OnClick = PuDeleteClick
end
end
object FindDialog1: TFindDialog
Options = [frDown, frFindNext, frHideMatchCase, frHideWholeWord, frHideUpDown, frDisableMatchCase, frDisableUpDown, frDisableWholeWord]
OnFind = FindDialog1Find
Left = 384
end
object PopupMenuCS: TPopupMenu
AutoPopup = False
OnPopup = PopupMenuCSPopup
Left = 314
Top = 258
object SettoAlwaysBlock1: TMenuItem
Caption = 'Set to Always Block'
OnClick = SettoAlwaysBlock1Click
end
object SettoAlwaysAllow1: TMenuItem
Caption = 'Set to Always Allow'
OnClick = SettoAlwaysAllow1Click
end
object ClearthisCookieSetting1: TMenuItem
Caption = 'Clear - set to Default Behavior'
OnClick = ClearthisCookieSetting1Click
end
end
object PopupMenuSZ: TPopupMenu
AutoPopup = False
OnPopup = PopupMenuSZPopup
Left = 400
Top = 257
object SetZonetoRestricted1: TMenuItem
Caption = 'Set Domain Mask to Restricted Zone'
OnClick = CustomPopUpCZhandler
end
object SetZonetoTrusted1: TMenuItem
Caption = 'Set Domain Mask to Trusted Zone'
OnClick = CustomPopUpCZhandler
end
object RemoveZoneMask1: TMenuItem
Caption = 'Remove Domain Mask - set to Internet Zone'
OnClick = CustomPopUpCZhandler
end
end
object PopupMenuDM: TPopupMenu
AutoPopup = False
OnPopup = PopupMenuDMPopup
Left = 472
Top = 253
object CreateNewDomainMaskinRestrictedZone1: TMenuItem
Caption = 'Create new Domain Mask in Restricted Zone'
OnClick = CreateNewDomainMask1Click
end
object CreateNewDomainMaskinTrustedZone1: TMenuItem
Caption = 'Create new Domain Mask in Trusted Zone'
OnClick = CreateNewDomainMask1Click
end
end
end
